home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1306 / ptw32.zip / NWSAA.PSL < prev    next >
Text File  |  1996-11-08  |  693b  |  32 lines
  1. #
  2. # Opens an IBM MainFrame connection (Via Novell's NetWare for SAA).
  3. #
  4. # Parameters : $p1 - server name (a NetWare for SAA server name).
  5. #                     $p2 - user name (a NetWare user name without password).
  6. #              $p3 - service name (profile).
  7. #              $p4 - LU category (public | pooled | dedicated)
  8. #              $p5 - LU name or LU pool name.
  9. #
  10.  
  11. if {$pc < 5} {
  12.  message "Script NWSAA.PSL must have at least 4 parameters"
  13.  return
  14. }
  15.  
  16. set comm-type nwsaa-ipx
  17. set server-name $p1
  18. set user-name $p2
  19. set service-name $p3
  20. set lu-category $p4
  21. name = $p3
  22. if [info exist p5] {
  23.  set lu-name $p5
  24.  name = $p5
  25. }
  26.  
  27. session open
  28. set session-name $name
  29. run keys.psl
  30.  
  31.  
  32.